МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Інститут економіки і менеджменту
Розрахункова робота з інформатики
по темі «Pascal»
Варіант № 26
ЛЬВІВ – 2006
Задача №1(2) про трикутник
Трикутник задано координатами вершин А(0;0), B(26;25), та C(-26;27);
Обчислити висоту h(a) та бісектрису W(c).
program zav2;
Uses Crt;
Var x1,x2,x3,y1,y2,y3,a,b,c,s,h,p,w:real;
begin clrscr;
writeln('введіть координати');
readln(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x3-x2)+sqr(y3-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x1-x2)+sqr(y1-y2));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
h:=2*s/a;
w:=2/(a+b)*(sqrt(a*b*p*(p-c)));
writeln('висота- ',h:5:2,' бісектриса- ',w:5:2);
readln
end.
Результати
введіть координати
0
0
26
25
-26
27
висота- 25.98 бісектриса- 40.42
Задача №2(4) Вибір.
Скласти програму для розв’язування наведеного завдання.
Ввести номер студента зі списку. Вивести його прізвище.
program ZAV4;
Uses Crt;
Var n:integer;const line='---------------------------------';
begin clrscr;
writeln('введіть номер студента зі списку');
readln(n);
case n of
1: writeln('Амбрис Іра');
14: writeln('Куць Марія');
20: writeln('Понзель Вікторія');
22: writeln('Садовська Оля');
23: writeln('Саїк Галя');
else writeln('Невірний ввід');
end;
writeln(line);
writeln('Роботу виконав Червінський В.');
readln
end.
Результати
Введіть номер студента
14
Куць Марія
---------------------------------------
Роботу виконав Червінський В.
Задача №3(5) Цикли. Таблиця мір.
Протабулювати таблицю відповідностей між мірами. Початкове значення міри, крок, зміни цього значення та кількість рядків у таблиці задати самостійно у режимі діалогу. Оформити таблицю якнайкраще, використовуючи формати виведення.
1 унція = 28,353495 г = 142 карати.
Program zav5;
Uses crt;
const line='_______________________________';
Var unciya,gram,karat,krok:real; i,kil:integer;
begin clrscr;
writeln('ввести значення');
readln(gram);
writeln('ввести крок');
readln(krok);
writeln('ввести кількість рядків');
readln(kil);
writeln;
writeln(line);
writeln('унція грам карат');
writeln(line);
for i:=1 to kil do begin
unciya:=28.353495*gram;
karat:=unciya/142;
writeln(unciya:7:3, gram:10:3,karat:10:3);
gram:=gram+krok;
end;
writeln(line);
readln
end.
Результати
ввести значення
40
Ввести крок
2
Ввести кількість рядків
7
_______________________________
унція грам карат
_______________________________
1134.140 40.000 7.987
1190.847 42.000 8.386
1247.554 44.000 8.786
1304.261 46.000 9.185
1360.968 48.000 9.584
1417.675 50.000 9.984
1474.382 52.000 10.383
_______________________________
Задача №4(6) Цикли. Обчислення скінченних сум і добутків.
Обчислити значення виразу для z. z=a+b; де i номер варіанта.
program zav6;
Uses crt;
Var x:integer; a,b,z:real;
begin
clrscr;
a:=0;
for x:=26 to 34 do begin
a:=a+sin(x)*cos(x*x)*sin(x+1.4)+5.14;
writeln('a=',a:10:4);
end;
b:=1;
for x:=26 to 31 do begin
b:=b*abs(sin(2*x-1.5)+3*sin(x*x))+2.38;
writeln('b=',b:10:4);
end;
z:=a+b;
writeln;
writeln('z=',z:10:4); readln
end.
Результати
a= 4.6436
a= 9.6651
a= 14.7631
a= 20.2327
a= 25.3737
a= 30.1951
a= 35.8337
a= 40.9072
a= 45.6546
b= 3.7350
b= 7.0022
b= 29.2920
b= 75.1223
b= 297.0003
b= 503.9297
z= 549.5843
Задача№5 (7а) Цикли. Обчислення нескінченних сум.
Утворити нескінченно спадну числову послідовність.
k=1,2,..
Обчислити суму цієї послідовності з точністю e=0,001. Скільки потрібно доданків для досягнення заданої точності?
program zav7a;
Uses Crt;
var s,a,k,e:real;
begin clrscr;
s:=0; e:=0.001; k:=1; a:=1/k;
while a>=e do
begin
a:=cos(k*k)*sin(2*k-1)+4.29/k;
s:=s+a;
k:=k+1;
writeln('a=',a:5:2);
end;
writeln('сума=',s:5:2);
writeln('кількість=',k:3:0);
readln
end.
Результати
a= 4.74
a= 2.05
a= 2.30
a= 0.44
a= 1...
